home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Online / IBScripts / rexx / Quitnet.ibrx < prev    next >
Encoding:
Text File  |  1980-02-05  |  803 b   |  26 lines
  1. /*  $VER: quitnet.ibrx 1.0     
  2.     Made by Sören Forsberg : sorenf@hem1.passagen.se
  3.   
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. say show('Ports')
  9.  
  10. IF show('Ports','AMIRC.1') THEN ADDRESS 'AMIRC.1' 'QUIT'
  11. IF show('Ports','AMIRC.2') THEN ADDRESS 'AMIRC.2' 'QUIT'
  12. IF show('Ports','AMIRC.3') THEN ADDRESS 'AMIRC.3' 'QUIT'
  13. IF show('Ports','AMIRC.4') THEN ADDRESS 'AMIRC.4' 'QUIT'
  14. IF show('Ports','AMIRC.5') THEN ADDRESS 'AMIRC.5' 'QUIT'
  15. IF show('Ports','AMIRC.6') THEN ADDRESS 'AMIRC.6' 'QUIT'
  16. IF show('Ports','AMIRC.7') THEN ADDRESS 'AMIRC.7' 'QUIT'
  17. IF show('Ports','AMIRC.8') THEN ADDRESS 'AMIRC.8' 'QUIT'
  18.  
  19.  
  20. IF show('Ports','MIAMI.1') THEN ADDRESS 'MIAMI.1' 'QUIT'
  21.  
  22. IF show('Ports','IBROWSE') THEN ADDRESS 'IBROWSE' 'QUIT'
  23.  
  24. IF show('Ports','YAM') THEN ADDRESS 'YAM' 'QUIT'
  25.  
  26. IF show('Ports','AMFTP.1') THEN ADDRESS 'AMFTP.1' 'QUIT'